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SUBROUTINE RLDISK (LUN) 


1 
C 
384 : Version: *v04-000' 

5 Ceeee eee eee AeA HAAA AHHH HEAAAAAAAAAAAHAERAAAHAHEHE TAHA HHA TATA ATER KARA 
0006 Ce * 
000 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
Boos C* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
ante és ALL RIGHTS RESERVED. * 

® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
pots C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Ooty es TRANSFERRED. * 
cs & 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Base Fe CORPORATION. * 
* 
0038 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
oose ee SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
0025 Ce * 
oog8 RoR eae on hoagie cnieie aga hag ore mieceretdaie nae Sy pierre pening a 
0038 
+594 : AUTHOR: BRIAN PORTER CREATION DATE:5-FEB-1979 
0031 
O03¢ C++ 
Boe : Functional description: 
0035 ; This module displays entries made for the rl11 controller. 
0037 : Modified by: 
0039 C v03-004 SARO232 Sharon A. Reynolds. 28-Mar-1984 
Bee ; Changed the call to UCBSL_OWNUIC to ORBSL_OWNER. 
oes C v03-003 SAROO?3 Sharon A. Reynolds, 20-Jun-1983 
004 C Changed the carriage control in the ‘format’ statements 
Goce : for use with ERF. 
0046 C v03-002 SAR0050 Sharon A. Reynolds, 13-Jun-1983 
9h 4 : Removed brief/cryptic support. 
9 C v03-001 BP0001 Brian Porter, 20-AUG-1982 
50 C Corrected device attention. 
2 ee 
3g INCLUDE *SRC$:MSGHDR.FOR /NOLIST' 
Ng INCLUDE *SRC$:DEVERR.FOR /NOLIST' 
0214 INTEGER*4 RLCS 
0215 INTEGER*4 RLBA 


H 12 
16-Sep-1984 00:13: VAX=11 FORTRAN V3.4-56 Pa 1 
Hee Matis DISKSVMSMASTER: CERF .SRCIRLDISK. FOR: 1 - 


Ig INTEGER®4 RLDA 
1 INTEGER®4 RLMP 
18 INTEGER®4 UBA_REGS(4) 
1 INTEGER®4 FIECD 
0 INTEGER®4 FIELD 
1 INTEGER®4 FIELD 
3 INTEGER®G COMPRESS4 
; INTEGER®4 COMPRESSC 
5 BYTE DRIVE_FUNC 
§ BYTE LUN 
8 EQUIVALENCE (RLCS,EMBSL_DV_REGSAV(0)) 
9 EQUIVALENCE (RLBA, EMBSL—DV-REGSAV(1)) 
EQUIVALENCE (RLDAEMBSL LDV-REGSAV(¢)) 
1 EQUIVALENCE (RUMP E “DV-REGSAV(3)) 
g EQUIVALENCE UBA REGS ERB E MBSC_DV_REGSAV(4)) 
PARAMETER NO.OPERATION = 0 
5 PARAMETER XFER_ERR =} 
AMETER UnITED CHECK =] 
7 PARAMETER s 1 
8 AME TER s 
39 PARAMETER READ HEADER = 4 
40 PARAMETER WRITE_D = 5 
41 PARAMETER READ BAT = 6 
4g PARAMETER TimeOut = 96 
4b CHARACTER®12 —-VIRL L030) 
45 DATA  VIRL_CS(0) 7*DRIVE READY®'"/ 
347 CHARACTERS17 V2RL_CS(6:7) 
48 DATA INTERRUPT ENABLE® */ 


$(¢) 
DATA v RL “Ei ) 


CHARACTER®#21 V3RL_CS(10:10) 
DATA V3RL_CS(10) ~ OPERATION INCOMPLETE®'/ 


/*CONTROLLER READY*'/ 
1 
/' 
CATR tae V4RL oCS15 215) 
" tee 
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¢$(13) NON-EXISTENT MEMORY®'/ 
DATA  V4RL7CS(14) DRIVE ERROR®'/ 
DATA V4RL7CS(15) COMPOSITE ERROR®'/ 
CHARACTER*17 _ DCRC_HCRC(O:1) 
DAT DCRC_HCRC(O)”  /*DATA CRC ERROR®'/ 
DATA DERE “HCRC(1) — / "HEADER CRC ERROR®'/ 
3 CHARACTER®22 DLT HNF(O:1) 

64 DAT NF (0) /*DATA_LATE ERROR®'/ 
265 DATA DLT “ANE C1) 7"HEADER NOT FOUND®'/ 
see CHARACTER®G = YIRL_DAC3;3) 

68 DATA V1RL_DA(3) 7*RESET#*/ 

% CHARACTER®7 __ DIRECTION(0:1) 

71 DATA DIRECTION(O)  / *REVERSE*/ 

272 DATA DIRECTION(1) = / *FORWARD*/ 
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0273 o0 
0 74 CHARACTER®24 _ HEAD_SELECT(0:1) 00 
75 DATA HEAD _SELECT(O) /'HEAD SELECT = UPPER HEAD'/ 00 
0276 DATA  HEADTSELECT(1) /*HEAD SELECT = LOWER HEAD'/ st 
18 CHARACTER®2 ADDR_EXTN(4:5) ge 

7 DATA WEXTN(4) W180 
9 80 DATA  ADDRIEXTN(S) = /*17°/ st 
0 Be CHARACTER*13 _ V2RL_STATUS(3:5) 00 
0 DATA  V2RL_STATUS(3) /'BRUSHES HOME®'/ 00 
0284 DATA Ve@RL-STATUS(4) /*HEADS OUT#'/ OC 
4 89 DATA  VeRLISTATUS(5) /*COVER OPEN®'/ as 
0287 CHARACTER*19 —_ V3RL_STATUS(8:15) 00 
0288 ATA RL_ STATUS (B) /‘DRIVE SELECT ERROR®'/ 00 
0289 DATA  V3RL-STATUS(9) /"VOLUME CHECK®'/ 00 
0290 DATA = VRLTSTATUS(10) /*WRITE GATE ERROR®'/ 00 
0291 DATA V3RL-STATUS(11) /"SPIN ERROR®'/ 00 
0 3 DATA V RL STATUS (8) /*SEEK TIME-OUT®'/ 00 
029 DATA  V3RL-STATUS(13) /"WRITE PROTECTED®'/ 00 
0294 DATA  V3RL-STATUS(14) /"HEAD CURRENT ERROR®'/ 00 
0599 DATA V3RL_STATUS(15) /"WRITE DATA ERROR®'/ si 
O599 CHARACTER*4 DRIVE_TYPE(0:1) 00 
0298 DATA  ORIVE_TYPE(0) a 00 
444 DATA ODRIVE-TYPE(1) /*RLO2'/ b's 
0301 CHARACTER*15 VIRL_STATUS (0:7) 00 
0308 DATA VIRL_STATUS(O) /*LOAD CARTRIDGE®'/ 00 
030 DATA VIRLISTATUS(1) /'SPIN UP#'/ 00 
0304 DATA = VIRL- TATUS (¢} /*BRUSH CYCLE®'/ 00 
0305 DATA  VIRL-STATUS(3) /*LOAD HEADS*'/ 00 
0306 DATA  VIRL-STATUS(4) /'SEEK®'/ 00 
0307 DATA VIRL-STATUS(5) /*LOCK ON®'/ 00 
0308 DATA VIR =STATUS (6) /"UNLOAD HEADS*'/ 00 
0308 DATA  VIRLISTATUS(7) /"SPIN DOWN®' Be 
0311 CHARACTER®23 —_RL_FUNC(0:7) 00 
O36 DATA = RL_FUNC(0) /"NO OPERATION*'/ 00 
031 DATA = RL-FUNC(1) /"WRITE CHECK*'/ 00 
0314 DATA RLIFUNC (9) /"GET STATUS®'/ 00 
0315 DATA = RL_FUNC(3) /*SEEK®'/ 00 
9 16 DATA = RL FUNC (4) /"READ HEADER®'/ 00 
1 DATA = RL-FUNC(5) /*WRITE DATA®'/ 0¢ 
0318 DATA RL_FUNC (6) /*READ DATA®'/ OC 
8 DATA = RL_FUNC(7) /"READ DATA NO HDR CHECK*'/ ae 
1 CHARACTER*33 ST_BE OC 
¢ ATA MUST_BE /'MUST BE SET/CLEAR INCORRECT'/ a 

4 
5 CALL FRCTOF (LUN) 
; call dhead! (lun,*UBA RL11") 
4 CALL LINCHK (LUN,2) 
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WRITEC(LUN,100) RLCS 
FORMAT(/* *,T8,"RLCS',124,28.4) 


CALL OUTPUT (LUN,RLCS,VIRL_CS,0,0,0,'0") 
DRIVE_FUNC = LIBSEXT2V(1,3,RLCS) 

CALL LINCHK (LUN,1) 

WRITE(LUN,125) RL_FUNC(DRIVE_FUNC) 

FORMAT(' °,140,"FONCTION = '; 

1 A<COMPRESSC (RL_FUNC (DRIVE FUNC) )>) 

DO 140,1 = 4,5 

FIELD = LIBSEXTZV(1,1,RLCS) 

IF (FIELD .NE. 0) THEN 

CALL LINCHK (LUN,1) 

WRITE(LUN, 130) ADDR_EXTN(I) ek 
FORMAT ¢ 140, BUS"ADDRESS EXTENSION BIT ',A2,'.") 
CONTINUE 

CALL OUTPUT (LUN,RLCS,V2RL_CS,6,6.7.'0") 

CALL LINCHK (LUN,1) 

FIELD = LIBSEXTZV(8,2,RLCS) 


WRITE(LUN,150) FIELD 
FORMAT(' °,140,"SELECTED DRIVE = ‘*,11,*.") 


CALL OUTPUT (LUN,RLCS,V3RL_CS,10,10,10,'0") 
FIELD = LIBSEXTZV(10,1,RLCS) 

FIELD1 = LIBSEXTZV<11,1,RLCS) 

IF (FIELD1 .€Q@. 1) THEN 

CALL LINCHK (LUN,1) 

IF (DRIVE_FUNC .NE. WRITE_CHECK) THEN 


WRITEC(LUN,160) DCRC_HCRC(FIELD) 
cos -140,A<COMPRESSC (DCRC_HCRC(FIELD))>) 


) 
0,*WRITE CHECK ERROR’) 
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FIELD = LIBSEXTZV(12,1,RLCS) 
IF (FIELD .NE. 0) THEN 
CALL LINCHK (LUN,1) 
180 FORMAT CS TRO REIRDER CDE FCHNE (FIELD), "#*)=19) 
ENDIF 
CALL OUTPUT (LUN,RLCS,V4RL_CS,13,13,15,'0") 


CALL LINCHK (LUN,1) 


87 
88 
89 
90 
31 
38 
94 
95 
3 
98 
99 
00 
01 
0¢ WRITE(LUN, 250) RLBA 
03 250 FORMAT(' °,78,"RLBA',124,28.4) 
05 IF (DRIVE_FUNC .£Q. WRITE_CHECK 
4 2 ORIVE_F''NC .GE. WRITE_DATA) THEN 
09 CALL CALC_MAP (LUN,4,RLCS,RLBA) 
10 ENDIF 
ig CALL LINCHK (LUN,1) 
14 WRITE(LUN,275) RLDA 
15 275 FORMAT(' °,18,"RLDA’,124,28.4) 
7 IF (DRIVE_FUNC .€Q. SEEK) THEN 
19 IF (JIAND(RLDA,"A'X) .NE. “A'X 
1 2 JIAND(RLDA,"1"X) .£Q. 0) THEN 
§ CALL LINCHK (LUN,1) 
6 WRITE(LUN, 280) MUST_BE 
26 =. 280 FORMAT(' §,140,A33) 
z DIF 
3 FIELD = LIBSEXTZV(2,1,RLDA) 
i CALL LINCHK (LUN,1) 
34 


WRITECLUN,285) DIRECTION(FIELD) 
285 FORMAT(* °,140,A7) 


FIELD = LIBSEXTZV(4,1,RLDA) 
CALL LINCHK (LUN,1) 


WRITE (LUN, 290) eee PELE TCE FELD? 
FORMAT(* *,140,A24) 


FIELD = LIBSEXTZV(7,9,RLDA) 
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CALL LINCHK (LUN,1) 


WRITE(LUN,295) FIELD 
FORMAT(* §,T40,*CYLINDER DIFFERENCE = ',1<COMPRESSG (FIELD)>,".") 


ELSE IF (DRIVE_FUNC .€Q. GET_STATUS) THEN 
F CJTAND(RLDA,"F4"X) NE. 0 

2 JIAND(RLDA,"3'X) .NE. °3'X) THEN 

CALL LINCHK (LUN,1) 

veana e390 RS} 

ENDIF : 

CALL OUTPUT (LUN,RLDA,VIRL_DA,3,3,3,'0") 

ELSE IF (DRIVE_FUNC .€Q. WRITE_CHECK 

2 DRIVE_FUNC .GE. WRITE_DATA) THEN 

FIELD = LIBSEXTZV(0,6,RLDA) 

CALL LINCHK (LUN,1) 


WRITE (LUN, 305) FIELD 
FORMAT(* *,T40,"SECTOR = ',1<COMPRESS4 (FIELD)>,".") 


FIELD = LIBSEXTZV(6,1,RLDA) 
CALL LINCHK (LUN,1) 


WRITE(LUN,310) HEAD_SELECT (FIELD) 
FORMAT(* °,140,A24) 


FIELD = LIBSEXTZV(7,9,RLDA) 
CALL LINCHK (LUN,1) 


WRITE (LUN, 315) FIELD 
FORMAT(* *,T40,*CYLINDER = ',1<COMPRESS4 (FIELD)>,".*) 


ENDIF 

THE RLMP_ REGISTER RETURNED TO SYE IS NOT THE CONTENTS AT THE 
TIME OF THE ERROR.IT IS THE CONTENTS AFTER A GET STATUS 
COMMAND HAS BEEN EXECUTED ON THE FAILING DRIVE.A GET STATUS 
IS EXECUTED UNCONDITIONALLY WHEN ANY ERROR IS DETECTED BY 
THE RL DISK DRIVER. 


CALL LINCHK (LUN,2) 
WRITE(LUN,605) RLMP 
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VAX=11 FORTRAN 


Pa 
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FORMAT(' ',18,'RLMP’,124,78.4,/,148,'**ERROR STATUS*®') 


FIELD = LIBSEXTZV(0,3,RLMP) 
CALL LINCHK (LUN,1) 
MAL TE CL YMG) >? VIRL_STATUS (FIELD) 


ORMAT(" *,T40,A<INDEX(VIRL_STATUS (FIELD) ,'*')=1>) 


CALL OUTPUT (LUN,RLMP,V2RL_STATUS,3,3,5,'0") 
FIELD = LIBSEXTZV(6,1,RLMP) 
CALL LINCHK (LUN,1) 


WRITE(LUN,620) HEAD _SELECT (FIELD) 
FORMAT(' *,140,A24) 


FIELD = LIBSEXTZV(7,1,RLMP) 
CALL LINCHK (LUN,1) 


WRITE(LUN,625) DRIVE TYPE (FIELD) 
FORMAT(* *,140,"DRIVE IS ',A4) 


CALL OUTPUT (LUN,RLMP,VSRL_STATUS,8,8,15,'0") 
if Cemb$w_hd_entry .ne. 98) then 
IF (CDRIVE_FUNC .€Q. WRITE_CHECK 
DRIVE_FUNC .GE. WRITE_DATA) 
4 EMBSW_HD_ENTRY .NE. TIMEOUT) THEN 
if (uba_regs(1) .ne. 0) then 
call uba_datapath (lun,uba_regs(1),uba_regs(2)) 
endif 


call calc_map2 (4,rlcs,rlba, field) 
call uba_mapping (lun, field,uba_regs(3)) 


if ¢ 

: LibSextzv(16,16,emb$l_dv_iosb1) .gt. 512 
an o 

1 field .ne. 0 

1) then 


call ubs_mapping (Lun, (field-1) ,uba_regs(4)) 
en 


call Linchk (lun,1) 
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write(lun,630) 
format(* *,:) 

if (emb$w_hd_entry .ne. 98) then 

call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 


call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
en 


call orb$l_owner (Lun,emb$l_dv_ownuic) 
call ucb$l_char (Lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
call ucb$wlerrcnt (lun,emb$w_dv_errcnt) 
if Cemb$w_hd_entry .ne. 98) then 

call ucb$l_media (lun,emb$l_dv_media) 
call Linchk (lun,1) 

write(lun,630) 

call rldisk_qio (lun,emb$w_dv_ func) 
call irp$w_bcnt (lun,emb$w_dv_bcnt) 
call irp$w_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_raqpid) 
call irp$q_iosb (lun,emb$l_dv_iosb1) 
endif 


RETURN 
END 
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Bytes 


Attributes 


$ep-1984 00:13: VAX=-11 FORTRAN 
if ty 7 4:21: 38 DISKSVMSMASTER: 


ERF. SRCIRLDISK. FOR; ‘te 


SCODE 2760 PIC CON REL LC SHR EXE RD NOWRT LONG 
1 SPDATA 487 PIC CON REL LC SHR NOEXE RD NOWRT LONG 
¢ SLOCAL "258 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 51 PIC OVR REL GB SHR NOEXE RD WRT LONG 
Total Space Allocated 5187 
ENTRY POINTS | 
Address Type Name | 
0-00000000 RLDISK | 
| 
VARIABLES | 
Address Type Name Address Type Name 
-0000030C L*1 DRIVE_FUNC 3-0000001C L*1 EMBS$B_DV_CLASS | 
-00000010 L*1 EMBSB_DV_ERTCNT 7 -00000011 L*1 EMB$B_DV_ERTMAX 
3-O000003E L*l EMBSB_DV_NAMLNG OCOO003A L*1l EMBSB_DV_SLAVE 
:- L*1 € _0V_ -00000036 I*4 EMBSL_DV_CHAR 
=00000012 I*4 EMB$L_DV_10SB1 -00000016 I*4 EMB$L_DV_10SB2 
3-00000026 14 EMBSLIDV“MEDIA “G0Q0004E 14 EMBSL-DV-NUMREG | 
-0000002E I*4 EMBS$L_DV_OPCNT 3-00000032 I*4 EMBSL_DV_OWNUIC 
“OOO000iE I*4 EMBSL_DV_ROPID 3-00000000 I*4 EMBSL_HD_SID 
-0000003F CHAR EMBST~DV~NAME 3-00000024 I+? EMBSW-DV"BCNT 
3-00000022 ss EMBSW_DV_BOFF 3-0000002C I*2 EMBSW_DV_ERRCNT 
-00000035C I* $W_DV_FUNC 3-O000001A I*2 EMBSW_DV_STS 
~0000002A I*2 EMBSW_DV_UNIT 3- ~ROfO RS SO It ERB SW. HD" ENTRY 
3-O0000000E I*2 EROS, HD_ERRSEQ 2-00000330 I*4 FIELD™ 
-00000334 I*4 FIELDT 2-00000338 [4 FLELD2 
-0000033C I*4 | AP-00000004a L*1 
-0000030D CHAR MUST_BE :- -00000056 I*4 RLBA 
-00000052 I*4 RLCS QOOO00SA I*4 RLDA 
-0000005E I*4 RLMP 
| 
ARRAYS 
Address Type Name Bytes Dimensions 


-00000111 CHAR ADDR_EXTN 
-0000007F 
DLT_HNF 
1D4 CHAR DRIVE. TYPE 
EMB 


; L 
99 I*4 EMBSL_DV_REGSAV 
I*4 EMBSQ-HD- TIME 
1 CHAR HEAD SELECT 


00000254 CHAR RL_FONC 


oul 
ofr NK Fw 
LLL AOL 
OOMmwoooc[ecne +s. 
oe oe woe ee 68 oe ee oe oe 
~~ TN 
—~_- O-~wrwww 

ko 

ee 


FOoovaeal & ses 


— 


ae ee ee a 


RRRRRRREKRELLELLLLKLEKEK RL LRE REPRE PERE 


D 13 
RLDISK W9° sep- 138% 00:33:30 VAX-11 FORTRAN V3.4-56 Page 10 
-S$ep-1984 14:21: DISKSVMSMASTER:CERF. SRCIRLDISK. FOR;1 
wy sie ed I*4 UBA_REGS 18 (4) 
CHAR VIRC_CS 12 (0:0) 
CD CHAR VIRL_DA 8 (9:3) 
1DC CHAR VIRL~STATUS 120 (0:7) 
= § CHAR V2RL_CS 4 ef? 
115 CHAR VeRL_STATUS 9 (3:5) 
—E CHAR VSRL_CS 1 (10:10) 
wis sale DES CHAR VSRL_STATUS 1 3 (8:15) 
- CHAR V4RL_CS 60 (13:15) 
LABELS 
Address Label Address’ Label Address Label Address Label Address Label Address Label 
1=0000004D 100° 1-0000005F 13 1-00000078 130° ef 140 1=Q0000009F 150° 1=90800080 160° 
1-000000C9 170° 1-0000 ee} 1 80. 1-QO00000EE $20, 1-000000F F $f . e444 5 80° 1=0000011 18 85° 
en's SF 4 290° 1-000001 1=0000014F 300’ 1-00000157 9. 1-00000171 310° 1=00000179 315° 
1-000001 605" 1-00000188 ate 1-000001C7 620° 1-O000001CF 625° 1-000001E2 630° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CALC_MAP CALC_MAP2 I*4 COMPRESS4 I*4 COMPRESSC DHEAD1 RCTO 
IRPSC_PID IRP$O_10SB IRP$W_BCNT IRP$W_BOFF I*4 LIBSEXTZV 1*4 (ISS INDEX 
LINCH ORBSL_OWNER OUTPU RLDISR_QI0 UBA_DATAPATH UBA_MAPPING 
urese ERT CHT UCBSB“ERTMAX UCBSL_CHAR UCBSL_MEDIA UCBSL_OPCNT UCBSW_ERRCNT 


0 
0 
| 
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5 
5 | 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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VAX=11 FORTRAN ¥3 a 
E CIRLDISK.FOR;1 


-4-56 
DISKSVMSMASTER: CERF .SR 


ooooo 
SSIsy 
SES33 


SesssEasss 


qiocode(1,26) 
qiocode(1,27? 
qiocode(1,32) 
qiocode(1,33) 
qiocode(1,35) 
qiocode(1,39) 
qiocode(1,48) 
qiocode(1,49) 
qiocode(1,50) 
qiocode(1,51) 
qiocode(1,52) 
qiocode(1,53) 


a4 8 
9004 Subroutine RLDISK_Q10 (Lun,emb$w_dv_ func) | 03 
0008 include 'src$:qiocommon.for /nolist’ | 82 
6 re oie ate, dv_ func | 3 
0274 Altes | 05, 
9 i} integers4 qiocode(0:1,0:63) | 82 
0 78 if (qiocode(0,0) .eq. 0) then a3 
9280 qiocode(1,00) = %loc(io$_nop) G2 
0983 qiocode(1,02) = Xloc(io$_seek) | b3 
0286 qiocode(1,04) = Zloc(io$_drvclr) | 82 
0286 qiocode(1,08) = %loc(io$_packack) | 82 
0288 qiocode(1,10) = Zloc(io$_writecheck) | ba 
0290 qiocode(1,11) = %loc(io$_writepblk) 05 
029¢ qiocode(1,12) = Xloc(io$_readpblk) 

0294 qiocode(1,14) = Zloc(io$_readhead) 


= Zloc(io$_setchar) 


Zloc (io$_sensechar) 
Zloc(io$_writelblk) 
Zloc(io$_readl blk) 
Zloc (io$_setmode) 
Zloc (io$_sensemode) 
Zloc(io$_writevblk) 
Zloc(io$_readvblk) 
Zloc (io$_access) 
Zloc(io$_create) 
Zloc (io$_deaccess) 
Zloc (io$_delete) 


PAA 


= 


PADADADAAA 


vw 


SOOOSOOCOCOOOCOOOOOoOoOooOO 


| 
| 
| 
| 
0 


WANA. AAA AA 


We et et 
SOON US WO 


i 
qiocode(1,54) = Zloc(io$_modify) | 
| 
| 


RLDISK_Q10 


Oo 


qiocode(1,57) = Zloc(io$_mount) 
do 10,1 = 0,63 
qiocode(0,i) = 33 
if (qiocode(1,i) 
qiocode(1,i) = Zloc(qio_string) 
endif 


-eq. 0) then 


VEU OO OONOULS WN 


10 continue 
endif 


call irp$w_ func (lun,emb$w_dv_fun 


return 


pam) ew ww wea ol eleloleloleleleolololololo) 


ESEsSy 


end 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 249 
1 SPDATA 

SLOCAL 54 

QIOCOMMON 1247 

Total Space Allocated 2052 


ENTRY POINTS 
Address Type Name 
0-00000000 RLDISK_Q10 


VARIABLES 
Address Type Name 


; is EMBSW_DV_FUNC 
R 10$_ABORT 


; ie 10$- wo) lao 
CHAR IO$—CL 
ao CHAR 10$_ DEACCESS 
26D CHAR IO$_~DIAGNOSE 
CB CHAR IO$—DSE 


~Sep-1984 
Sep- 1986 


' 


qiocode(1,56) = Zloc(io$_acpcontrol) 


1 qiocode(0,libSextzv(0, 6-embSw_ + func))) 


Attributes 


PIC CON REL LCL SHR 
PIC CON REL LCL SHR NO 


Address Type Name 


-00 o0820 I*4 |] 

- CHAR I0$_ACC 
- CHAR IOS"AVA 
- CHAR IO$~CRE 
- CHAR 10$"DEL 
-0000065 CHAR 10$-DRV 
- AQ CHAR IOS"ERA 


+}3: 39 VAX-11 FORTRAN 
13 DISKSVMSMASTER: 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 
RD WRT LONG 


near. 


SRCIRLDISK.FOR; if? 


12 


| 
2 ee 


0 
i) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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0 
0 
0 
0 
0 
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FFSSSSSSEE 


th el 


= 


—RRRFFETETE 


a a a a aa aaa 


RLDISK_Q@10 


EADLBLK 

EADPRESET 
ADVBLK 

ADWTHXBUF 
EASE 


ARRAYS 
Address Type Name 
2-00000000 I*4 QIOCODE 
LABELS 
Address Label 
ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
IRPSwW_FUNC 


Type Name 


1*4 LIBSEXTZV 


COQOQCQoQoooooooooQoQoQoQoQoooQoQooooooooo 
AM NAOLSMMO NEMPOWOOLOFOOrPuino"wo—-— 


WWAWWWNAAINA NALIN HNN NAAN AAA AA AANA 
ess teseepeespeseepeseeereeeee eee be § 6 8 
OSQOOCOOCOCCOOCOCOOCOOOCOOOOCOOOOOOOOO 


Bytes Dimensions 
512 (0:1, 0:63) 


ifFeo-19Rs 90:18:59 


VAX-11 FORTRAN 
DISKSVMSMASTER: 


1O$_INITIALIZE 
ODIFY 


+: 


te 


4 
RF 


5 
5 


6 
RCIJRLDISK.FOR;1 
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06: 
06: 
06: 
06: 
06: 
06: 
06: 
06: 
06! 
06' 
06' 
06! 
06! 
06' 
06' 
06' 
06' 
06! 
06 
064 
061 
06 
061 
081 
061 
061 
061 
061 
06: 
06 
06 
06 
06 


—_——— 


H 13 
RLDISK_Q10 t Sep-1984 00 


21 
$ep-1984 14:2 


3: 
1 
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DISKSVMSMASTER: CERF .SRCIRLDISK.FOR;1 
COMMAND QUALIFIERS 

FORTRAN /LIS=LIS$:RLDISK/OBJ=OBJ$:RLDISK MSRC$:RLDISK 

/CHECK= (NOBOUNDS OVERFLOW NOUNDERF LOW) 

/DEBUG=(NOSYMBOLS, T 

TSTANDARDS (NOSTHTAK NOSBURCE FORM) 


DE,M 
/F77 /NOG_FLOATING /14 WOPTIMIIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 9.03 seconds 
Elapsed Time: 19.09 seconds 
Page Faults: eae 

Dynamic Memory: 28 pages 


MENT CORPORATION 
AND PROPRIETARY 
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